home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Linux / Kubuntu 8.10 / kubuntu-8.10-desktop-i386.iso / casper / filesystem.squashfs / usr / share / perl5 / Foomatic / UIElem.pm < prev   
Text File  |  2008-08-13  |  674b  |  42 lines
  1.  
  2. # TODO:
  3. # sort by section and process that way
  4. # order dep specific to particular options
  5. # UI constraints
  6. # various common non-UI options
  7. # PJL options?
  8.  
  9. package Foomatic::UIElem;
  10.  
  11. # Call with name=>foo, label=>Foo, type=>Boolean or PickOne or PickMany
  12.  
  13. sub new {
  14.     my ($type, %vals) = @_;
  15.     return bless \%vals;
  16. }
  17.  
  18. # default=>value
  19. # order_real=>value
  20. # order_section=>value
  21. # order_keyword=>value
  22.  
  23. sub set {
  24.     my ($this, $var, $val) = @_;
  25.     $this->{$var} = $val;
  26. }
  27.  
  28.  
  29. sub add_option {
  30.     my ($this, $option, $label, $ps) = @_;
  31.  
  32.     $ps =~ s!\r!!g;
  33.  
  34.     push (@{$this->{'options'}}, 
  35.       {'option' => $option,
  36.        'label' => $label,
  37.        'snippet' => $ps});
  38. }
  39.  
  40.  
  41. 1;
  42.